﻿<!-- #include file=conn.asp --><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title></title>
<LINK href="images/style.css" 
type=text/css rel=stylesheet>
</head>
<body>
<table width="98%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC" >
  <tr> 
    <th colspan="2" bgcolor="#FFFFFF"><p>&nbsp;</p>
      <p>漫画管理系统后台管理</p>
      <p>当前用户：<%=Session("Adminname")%> 当前IP：<%=Request.ServerVariables("REMOTE_ADDR")%> 系统已记录本次登陆 </p>
    <p>&nbsp;</p></th>
  </tr>
  <tr class="table_row_1"> 
    <td width="52%" bgcolor="#FFFFFF">服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
    <td width="48%" bgcolor="#FFFFFF">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
    <td bgcolor="#FFFFFF">数据库使用：<%=testObject("Adodb.Connection")%> <font style='color:red;font-weight:bold'>必须</font> 
    </td>
  </tr>
  <tr class="table_row_1"> 
    <td bgcolor="#FFFFFF">ADODB.Stream：<%=testObject("ADODB.Stream")%><font style='color:red;font-weight:bold'> 
    必须</font></td>
    <td bgcolor="#FFFFFF">Microsoft.XMLDOM：<%=testObject("Microsoft.XMLDOM")%> <font style='color:red;font-weight:bold'>必须</font> 
    </td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">Microsoft.XMLHTTP：<%=testObject("Microsoft.XMLHTTP")%><font style='color:red;font-weight:bold'> 必须</font></td>
    <td bgcolor="#FFFFFF">FSO文本读写：<%=testObject("Scripting.FileSystemObject")%><font style='color:red;font-weight:bold'>必须</font></td>
  </tr>
  <tr class="table_row_1"> 
    <td bgcolor="#FFFFFF">JMail.Message：<%=testObject("JMail.Message")%> 可选 </td>
    <td bgcolor="#FFFFFF">LyfUpload.UploadFile：<%=testObject("LyfUpload.UploadFile")%> 可选</td>
  </tr>
  <tr> 
    <td colspan="2" bgcolor="#FFFFFF"> <font style='color:red;font-weight:bold'>√</font> 表示支持该组件<br>
      <b>×</b> 表示不支持<br>
    "必须" 表示没有此组件将不能正常运行程序<br></td>
  </tr>
</table>
</body>
</html><%
Function testObject(str)
    On Error Resume Next
    Dim TestObj
    Set TestObj = Server.CreateObject(str)
    If Err.Number<>-2147221005 Then
	    testObject="<font style='color:red;font-weight:bold'>√</font>"
	Else
	    testObject="<b>×</b>"
	End If
    Set TestObj = Nothing
    Err.Clear
End Function
%>

